home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Super Collection / Windows 95 Super Collection.iso / win95 / programm / vbxstd20 / listdemo.fr_ / LISTDEMO.FRM (.txt)
Encoding:
Visual Basic Form  |  1995-07-20  |  2.2 KB  |  69 lines

  1. VERSION 2.00
  2. Begin Form ListForm 
  3.    BackColor       =   &H00E0E0E0&
  4.    Caption         =   "Style settings demo..."
  5.    ClientHeight    =   2868
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1344
  8.    ClientWidth     =   3144
  9.    Height          =   3192
  10.    Left            =   1092
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2868
  13.    ScaleWidth      =   3144
  14.    Top             =   1068
  15.    Width           =   3240
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Change item height.."
  18.       Height          =   540
  19.       Left            =   120
  20.       TabIndex        =   1
  21.       Top             =   1776
  22.       Width           =   2676
  23.    End
  24.    Begin VBTabList VBTabList1 
  25.       AlwaysBitmapped =   0   'False
  26.       BackColor       =   0  'Use system colors
  27.       Bitmap01        =   LISTDEMO.FRX:0000
  28.       Bitmap02        =   LISTDEMO.FRX:0122
  29.       Border3D        =   -1  'True
  30.       Caption         =   "1
  31.       CaseType        =   0  'None
  32.       DataType        =   2  'Text and picture
  33.       DisableNoScroll =   0   'False
  34.       DisplayMode     =   0  'Auto. adjust
  35.       ForeColor       =   &H00000000&
  36.       Height          =   1644
  37.       Help            =   &H00000000&
  38.       ItemHeight      =   18
  39.       Left            =   132
  40.       ModeTest        =   0   'False
  41.       MultipleSel     =   0   'False
  42.       NoRedraw        =   0   'False
  43.       ParentNotify    =   -1  'True
  44.       PictureHeight   =   16
  45.       PictureWidth    =   18
  46.       PictureXMargin  =   5
  47.       PictureYMargin  =   4
  48.       Sort            =   -1  'True
  49.       TabIndex        =   0
  50.       Text3D          =   0  'No 3D
  51.       TextAlignment   =   2  'Left
  52.       TextXMargin     =   24
  53.       TextYMargin     =   2
  54.       Top             =   48
  55.       UseHorzScrollBar=   0   'False
  56.       UseTranspBitmap =   -1  'True
  57.       Prop71          =   &H00000000&
  58.       Width           =   2652
  59.       WinfileDDrop    =   -1  'True
  60.       Prop72          =   0
  61.    End
  62. Sub Command1_Click ()
  63. VBTabList1.ItemHeight = 30
  64. VBTabList1.SetFocus
  65. End Sub
  66. Sub VBTabList1_FileDropped (Files As Integer, ItemIndex As Long)
  67. MsgBox VBTabList1.DroppedFilename(Files - 1) + "-" + Str$(ItemIndex)
  68. End Sub
  69.